home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / Amster-main.lha / Amster_Install / Rexx / Search_example.rexx < prev    next >
OS/2 REXX Batch file  |  2000-10-14  |  650b  |  35 lines
  1. /*
  2. ** Amster Search Demo
  3. */
  4.  
  5. parse arg String
  6. address 'AMSTER.1'
  7.  
  8. ISONLINE
  9. if RC = 0 then CONNECT
  10. ISONLINE
  11.  
  12. do while RC = 0
  13.    call delay(50)
  14.    ISONLINE
  15. end
  16.  
  17. 'SEARCH "'String'" SONG'
  18. if SONG.COUNT > 0 then do
  19.    do loop = 0 to SONG.COUNT-1
  20.       say 'Num       : 'loop
  21.       say 'Title     : 'SONG.loop.TITLE
  22.       say 'User      : 'SONG.loop.USER
  23.       say 'MD5       : 'SONG.loop.MD5
  24.       say 'Size      : 'SONG.loop.SIZE
  25.       say 'Bitrate   : 'SONG.loop.BITRATE
  26.       say 'Frequency : 'SONG.loop.FREQUENCY
  27.       say 'Time      : 'SONG.loop.TIME
  28.       say 'Link      : 'SONG.loop.LINK
  29.       say
  30.    end
  31. end
  32. else do
  33.    say 'No matches found.'
  34. end
  35.